From fc7b1cd72e84868c20d7359c1b0d31a761cd5ce9 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 15 Dec 2000 12:32:04 +0000 Subject: [PATCH] (mh-find-path): Set read-mail-command. --- lisp/mail/mh-utils.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index 5b89c54cf30..30605bb9311 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el @@ -1,7 +1,7 @@ ;;; mh-utils.el --- mh-e code needed for both sending and reading ;; Time-stamp: <95/10/22 17:58:16 gildea> -;; Copyright (C) 1993, 1995, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1995, 1997, 2000 Free Software Foundation, Inc. ;; This file is part of mh-e, part of GNU Emacs. @@ -542,6 +542,7 @@ Non-nil third argument means not to show the message." (buffer-substring start (point))))))) (defvar mail-user-agent) +(defvar read-mail-command) (defvar mh-find-path-run nil "Non-nil if `mh-find-path' has been run already.") @@ -554,6 +555,7 @@ Non-nil third argument means not to show the message." (mh-find-progs) (unless mh-find-path-run (setq mh-find-path-run t) + (setq read-mail-command 'mh-rmail) (setq mail-user-agent 'mh-e-user-agent)) (save-excursion ;; Be sure profile is fully expanded before switching buffers -- 2.30.2